COMMENT ⊗   VALID 00012 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.<< For printed version, set everything to TRUE except EDIT and use DEVICE XGP.
C00007 00003	.  PORTION cover place text
C00011 00004	.begin "covers"
C00016 00005	.PORTION food
C00022 00006	.<<		read source files >>
C00024 00007	.if outcount then begin "noncalif"
C00027 00008	.if indexx then begin "ind"
C00028 00009	.if outcount then begin "filler"
C00029 00010	.<< Contributors >>
C00036 00011	.if showlist then begin "plist"
C00037 00012	.if xcribl then BEGIN "cont"
C00038 ENDMK
C⊗;
.<< For printed version, set everything to TRUE except EDIT and use DEVICE XGP.
. For supplement, make only OUTSIDE true.
. For the online version, use DEVICE TTY with everything but EDIT, OUTCOUNT and INDEXX
. TRUE and when it exits, say
. "E YUMYUM.DOC", to get it in E format, then exit and say
. "REN YUMYUM[P,DOC]←YUMYUM.DOC" to move it into the public file area.
.>>
.device pre;	<< either PRE or tty >>
.calif←true;	<< print California restaurants >>
.outside←false; << print restaurants outside California >>
.edit←false;	<< print one column >>
.
.showlist←true; << print list of contributor IDs >>
.outcount←false;<< print count of restaurants outside California >>
.indexx←true; 	<< print index >>
.
.if THISDEVICE = "XGP" THEN START  <<must be CAPS in quotes>>
.  font 1 "nonm"; font 2 "nonmi"; font 3 "nonmb";
.  FONT 4 "nonlb"; FONT 5 "BEESIX"; font 6 "zero30";
.  font 8 "ms25";
.  font A "buck75";
.  font B "metlb"; font C "metm"
.  font D "baxs30";  font E "nonsb";
.  font F "fleur[yum,act]";
.END ELSE START << for Press version >>
.  FONT 1 "helvetica10"
.  FONT 2 "helvetica10I"
.  FONT 3 "helvetica10B"
.  FONT 4 "helvetica12"
.  FONT 5 "oldenglish12"
.  FONT 6 "SAIL6"
.<< There is no equivalent -- the original is a bunch of zero-width accents.
.  We will have to fiddle the macros that use font 6 so that they do something
.  reasonable.  >>
.  FONT 8 "SAIL8"
.<< Used only to print the copyright symbol, as I recall.  It should be possible
.  to find one somewhere in the Dover fonts. >>
.  FONT A "oldenglish24"
.  FONT B "timesroman14B"
.  FONT C "timesroman12"
.  FONT D "SAIL10"
. << No equivalent available, but as I recall this was used only to print a
.  long dash, based on a "--" text response, or something like that. >>
.  FONT E "helvetica10B"
.  FONT F "SAIL12"
. << No equivalent available.  The original contains just one character:
.  a fleur-de-lis.  We will have to get Art Samual to scale that up and
.  produce a GF version.  >>
.END
.
.if XCRIBL THEN START "XGP"  <<XCRIBL is TRUE for XGP and PRE>>
.  height←55;
.  PAGE FRAME height HIGH 73 WIDE;  << 80% reduction to print in 6.88 x  10.62 " >>
.  title area heading lines 1 to 3;
.  AREA TEXT LINES 4 TO height;
.  EVENLEFTBORDER←ODDLEFTBORDER←1000;
.  !xgpcommands←"/PMAR=1900/BMAR=100";
.
.  macro zip(ch)	⊂if thisfont>0 then "%6αch%*" else start
.    turn on "↑[]"; "↑[%6αch%*]"; turn off;
.    end;
.    ⊃;
.  at "`" ⊂zip("'")⊃;
.  at "~" ⊂zip("~")⊃;
.  at "∧" ⊂zip("∧")⊃;
.  next page;
.  END "XGP"
.ELSE START "TTY"
.  height←500;
.  PAGE FRAME 500 HIGH 69 WIDE;
.  AREA TEXT LINES 3 TO 500;
.  title area heading lines 1 to 2;
.  at "`" ⊂("")⊃;
.  at "~" ⊂("")⊃;
.  at "∧" ⊂("")⊃;
.  END "TTY";
.
.good←(if xcribl then "%Ff%1 " else "* ");	<< sex symbol >>
.TURN ON "α%→←{";
.  PORTION cover; place text
.  CENTER; select B;
.  if ¬xcribl then begin "grumble"
.place heading
THIS FILE IS FOR ONLINE USE -- PLEASE DO NOT EDIT OR PRINT IT
.place text; fill adjust
This file is copyright by the Prancing Pony Food Cooperative.
No copies of this file may be made, including on other Stanford
computers, without permission of Les Earnest, Arthur Keller, or Marty
Frost.
.skip 1
This file is a compiled from separate source files, so any changes you make
here will disappear in the next compilation--please mail additions to the
editor.
This file is formatted for perusal
by a text editor and wastes a lot of paper if you try to list it.
Besides, a printed version is already available in MJH 358.
.skip 2
.    end "grumble"
Prancing Pony Express

presents:

.select A;
.if outcount then start "calif"
California
.  end "calif";;
.if outside ∧ ¬calif then start "ww"
International
.  end "ww"
YUMYUM

.if xcribl then begin "lobster"
.  fill adjust select B
.  if ¬edit then start skip 9 end else begin "review"
.    skip;
.    once center
%3Instructions to Contributors

%1To update your old opinions, just write legibly in the margins and give
the last date (month/year) that you were there, or better yet, mail a
message containing you opinions to YUMYUM @SAIL.
"Me too" reviews will generally not be published unless they cover a
date span later than that of the original reviewer.
It %2is%* important to provide updates on restaurants that have been
reviewed earlier, however.

Reviews that are more than three years old will generally be deleted.
Negative reviews from the Bay Area will be included, but not those from
farther away -- there are too many bad restaurants out there!

For new restaurants, please give information in this order:
.begin "list" nofill; narrow 4;
Name (accuracy please!)
Address
Telephone
Hours
Credit cards honored
Remarks [your initials - month/year last tried]
. end "list";
.  end "review"
.skip 5;
.end "lobster"
.if calif then start "in"
. select 2;
An uninhibited guide to restaurants of the Bay Area
and the outlands
. end "in" else begin "out"
.select 2;
An uneven supplement to "California Yumyum"
for the casual traveler.
.end "out";
.select 1
.begin "covers"
.every heading(,%3Preface);
.skip to column 1; FILL ADJUST; TURN ON "#";
%1This edition of Yumyum lists {[4]restot} restaurants
.if outcount then start "in"
of the San Francisco Bay area and some other parts of California
.end "in"
together  with {[4]optot} opinions from our readers.
Rather than attempting to form a "consensus," we let them tell it their
way.  Of course, different people are looking for different things and
restaurants change with the passage of time and chefs.

The symbol {good}marks restaurants that the editor believes are
outstanding %2in their class%1 (combination of cuisine and price).  Other
places may be just as outstanding but have not been reviewed sufficiently.
With a little experience,
you can begin to evaluate the evaluators and draw more reliable
conclusions from the opinions given here. 

You are invited to send your opinions to the editor to keep these listings
complete and up to date.  We are particularly
interested in hearing about new restaurants.
In preparing remarks,
please try to express your views concisely and accurately and for new
restaurants be sure to get the accurate name, address, phone, hours,
and whether or not there is a nonsmoking section.

This guide is organized by geographical locations and types of cuisine.
The coverage falls off approximately with the square of the distance
from Stanford, but with emphasis on places that are visited frequently
by people from the Computer Science Department.

The published version covers California and is produced on the SAIL computer
of the Stanford Department of Computer Science using the PUB document
compiler and the Xerox Graphics Printer.

Reviews of selected restaurants in the rest of the world are directly available
to people who have access to the SAIL computer: see file YUMMY.XGP[P,DOC].
Others may request a copy from the editor.
For online perusal at SAIL, read YUMYUM[P,DOC].

→Les Earnest, %2Editor
.skip 1
→%1Arthur M. Keller, %2Publisher
.skip 2
.center
%3Credit Card Codes

.begin nofill narrow 8;  tabs 23,43; turn on "\";
%2AX = American Express \DC = Diners Club \VS = Visa
CB = Carte Blanche \MC = Master Charge
.end
.skip 3
%1Copyright {(if xcribl then "%8c%1" else "(c)")} 1985
.once fill
%1Previous editions Copyright {(if xcribl then "%8c%1" else "(c)")} 1973, 1974, 1975, 1978, 1979, 1980, 1983

Prancing Pony Express
Artificial Intelligence Laboratory
Computer Science Department
Stanford, California 94305

.end "covers"
.if xcribl then start INSERT CONTENTS END;
.count page to 900;
.restno←opino←0;
.next page;
.PORTION food;
.if xcribl then start "xg"
.  if edit then start
.    area text lines 4 to height chars 1 to 60;
.   end else start
.    AREA TEXT LINES 4 TO height in 2 columns 2 apart;
.   end;
.  end "xg";;
.place text;
.count city;
.BEGIN "listings"
.locat←cuis←null;
.macro secont(nam);	⊂
.  SEND CONTENTS ⊂  if lines<3 then skip 20;
←%5nam
.    ⊃
.  ⊃
.if xcribl then start "xdefs"
.  oldpage←"999";
.  if outside then start "pref"
.      EVEN HEADING(%3{PAGE},,"%5{LOCAT}");
.      ODD HEADING(%4{cuis},,%3{PAGE});
.      end "pref"
.    else start "nop"
.      every heading(%5{locat},%4{cuis},%3{page});
.      end "nop";
.
.MACRO SEC(where) ⊂  LOCAT←cuis←null;
.  fill adjust;
.  skip (if lines<12 then 200 else 1);
←%5where%1
.  secont(|where|);
.  LOCAT←"where";	oldpage←page;
.  ⊃
.recursive macro TIT(HEADER,SUBHEAD);  ⊂
.  IF LENGTH("HEADER") THEN cuis←null;
.  if lines<9 then skip to line 1;
.  center;
.  IF LENGTH("HEADER") THEN start "cuisine"
%4HEADER
.	tihead(|header|);
.	cuis←"header";
.	END "cuisine";;
.IF LENGTH("SUBHEAD") THEN start "subtype"
%3SUBHEAD
.	tisub(|subhead|);
.	END "subtype";
.  fill adjust
.  ⊃;
.macro tihead(hxx);	⊂	SEND CONTENTS ⊂
%1hxx →{page!}
.	⊃;
.  ⊃
.macro tisub(sxx);	⊂	SEND CONTENTS ⊂
%1  sxx →{page!}
.	⊃
.  ⊃
.
.AT "⊗" nam "/" addr "/" phone "/" hrs "/" txt "≡" ⊂
.if lines<6 then skip 200;
.fill nojust; indent 0,2;
.name←"nam";
.if name[1]="*" then start name←name[2 to ∞]; (good); end;;
%B{name}%C

addr

phone
.break
.if length("hrs")>4 then start "hours"
%3Hours:%2  hrs
.  end "hours"
.name←scan(name,"(");   address←"addr";
.indent 0,0;
%1txt
.ind;
.skip;
.restup;
.⊃
.  at "--"		⊂"%DU%*"⊃;
.end "xdefs" else start "tdefs"
.  MACRO SEC(LOCAT) ⊂ cuis←null; every heading(|LOCAT - {cuis}|); ⊃;
.  MACRO TIT(HEADER,SUBHEAD);  ⊂
.    IF LENGTH("HEADER") THEN start "cuisine"
.	CUIS←"HEADER";
.       SKIP TO COLUMN 1;
.	END "cuisine"
.      else skip 2;
.    IF LENGTH("SUBHEAD") THEN BEGIN "subtype"
.       once center;
SUBHEAD
.	END "subtype";
.  ⊃;
.AT "⊗" nam "/" addr "/" phone "/" hrs "/" txt "≡" ⊂
.fill nojust; indent 0,2;
%B{"nam"}%C →phone

addr
.break
.if length("hrs")>4 then start "hours"
%3Hours:%2  hrs
.  end "hours"
.indent 0,0;
%1txt
.skip;restup;
.⊃
.END "tdefs";
.
.if ¬indexx then start macro ind; ⊂ ⊃;	end else start "doit"
.  macro ind;	⊂
.    town←scan(address,",","","is");
.    if length(address) then town←scan(address,",(") else town←scan(town,"(");
.    foo←scan(town," ","","xr");
.    repeat ⊂ if town[∞]≠" " then done else town←town[1 to ∞-1];⊃;
.    send index	⊂}%1{page!}∂5%3={name}%2- {town}=
.      ⊃;
.  ⊃
.  end "doit"
.
.macro restup;	⊂ restno←restno+1; ⊃;
.macro opinup;	⊂ opino←opino+1; ⊃;
.
.at "<" text ">"  ⊂ "%2text%*";⊃;
.if ¬showlist then start
.  at "[" ident "]" ⊂ turn off "-"; opinup;
%Eα[ident]%1{ turn on "-"
.    ⊃;
.  end else start "plist"
.  at "[" ident "]" ⊂ turn off "-"}%Eα[ident]%1{ turn on "-";
.    pns←"ident";
.    repeat  ⊂ pn←scan(pns,"-,");
.	opinup;
.	send plist	⊂}<{pn}>={⊃;
.	foo←scan(pns,"ABCDEFGHIJKLMNOPQRSTUVWXYZ",null,"IR");
.	if length(pns)=0 then done;;
.	⊃;
.    ⊃;
.  end "plist";
.at "¬y" ⊂
Nonsmoking area.
. ⊃
.at "¬n" ⊂
No nonsmoking area.
. ⊃
.<<		read source files >>
.place text
.INDENT 0,0,0;
.fill; nojust; PREFACE 0;
.TURN ON "∂";
.if calif then begin "yum"
.  require "yum" source_file;
.  end "yum";
.pagenext←page;
.if outside then begin "yummy"
.  if outcount then start "no contents"
.    count rest in city;
.    macro tihead(hdr);	⊂ ⊃;
.    macro tisub(sub);	⊂ ⊃;
.town←"";
.    macro secont(nam);	⊂   if rest>0 then start "count"
.	send filist	⊂
∂5%1{town} →{rest}\
.⊃
.	end "count"
.    else if length(town)>0 then start "center"
.	send filist	⊂
.if lines<3 then skip 20;
←%5{town}
.⊃
.        end "center";
.	next city;
.	town←"nam";
. ⊃
.  macro restup;	⊂ next rest; ⊃;
.  macro opinup;	⊂""⊃;	<< don't count opinions >>
.  macro ind;		⊂""⊃;	<< no indexing >>
.  LOCAT←cuis←null;
.  next page;
.  end "no contents";
.  require "yummy" source_file;
.  secont("");
.  end "yummy";
. END "listings"
.
.restot:restno;
.optot:opino;
.if outcount then begin "noncalif"
.page←pagenext;  cuis←locat←null;
.portion filist
.place text;
.    send contents	⊂
.skip
%5Outside California%1 →{pagenext}
.  ⊃;
.at "[" ⊂ ⊃;
.once center select 5
Outside California
.fill adjust crspace; select 1;
The computer version of this guide contains a selection of restaurant
reviews from around the world.
The list below shows cities for which reviews are given and the number
of restaurants reviewed in each one.
To get the reviews, if you have access to the SAIL computer
print file YUMMY.XGP[P,DOC]; otherwise, request a copy from someone with
access to the SAIL computer.
.begin nofill turn on "∂{←→\"; tabs 31;
.  receive;
.  end;
.    send contents	⊂
.skip 2;
%BAcknowledgement →%1{page}
.  ⊃;
.skip;once center
%3Acknowledgement
.fill adjust indent 0,0;
%1The idea of a computer file on restaurants originated locally with
Jack Holloway and Tom Binford in 1972.  In August 1973, Kasee Menke
and Les Earnest began publishing Yumyum.
Revisions have been published sporadically since then. 

We are indebted to the many contributors who have taken the time
to submit their evaluations.
.end "noncalif";
.if indexx then begin "ind"
.portion index;	place text;
.ODD HEADING(,%4Alphabetical Index,%3{PAGE});
.EVEN HEADING(%3{PAGE},%4Alphabetical Index);
.send contents	⊂ skip;
%BAlphabetical Index →%1{page}
.  ⊃
.fill nojust crbreak;
.preface 0;
.select 1;	indent 0,8;	tabs 5;
.turn on "\∂→";	at "=" ⊂""⊃;
%3Page
.receive "==";
.
.end "ind"
.if outcount then begin "filler"
.ODD HEADING(,%4Notes,%3{PAGE});
.EVEN HEADING(%3{PAGE},%4Notes);
.turn on "#";
.repeat ⊂ if (page mod 4)=2 then done else start "blank"
.  next page
#####

. end "blank";
.  ⊃
. end "filler";
.<< Contributors >>
.  macro a(pn,nam)	⊂
pn\nam
.    ⊃;
.BEGIN "PEOPLE"
.if XCRIBL THEN START "PXGP"
.  AREA TEXT LINES 4 TO height in 3 columns 1 apart;
.  end "PXGP";
.every heading(,%4Contributors,);
.portion people
.place text
.NOFILL; select 1;
.TURN ON "\"; TABS 6;
.if showlist then start "plist"
.  macro a(pn,nam)	⊂
pn\nam
.send plist ⊂}<pn>nam={⊃;
.    ⊃;
.    end "plist";
.a AAM,Allan Miller
.a AC,A. Chiang
.a AJT,Arthur Thomas
.a AK,Alan Kotok
.a ALL,Amy Lansky
.a ARK,Arthur Keller
.a AZB,Andrei Broder
.a BC,Bill Crocca
.a BH,Brian Harvey
.a BIL,Bil Lewis
.a BPM,Brian McCune
.a BKR,Brian Reid
.a CET,Carolyn Tajnai
.a CGN,Greg Nelson
.a CH,Charles Haynes
.a CHW,Charles Wilson
.a CJR,Chris Ryland
.a CP,Commodore Perry
.a CT,Chris Tucci
.a DBA,Bruce Anderson
.a DBH,Dave Heberg
.a DC, David Cheriton
.a DCL,David Luckham
.a DCO,Derek Oppen
.a DD,Dave Damouth
.a DES,David Shaw
.a DEW,Dave Wilkins
.a DFH,Dwight Hare
.a DLB,Daniel Boley
.a DLO,David Lowe
.a DMR,"D.M. Russell"
.a DON,Don Woods
.a EBK,Ted Kaehler
.a EMM,Eric Munson
.a EPW,Ted Wobber
.a ER,Elaine Rich
.a EVA,Eva Kampits
.a FDH,Frank Hilf
.a FIG,Lynn Gold
.a FNY,Frank Yellin
.a GFF,Geoff Goodfellow
.a GG,Gloria Garvin
.a GIO, Gio Weiderhold
.a GJS,Gerald Sussman
.a GLS,Guy Steele
.a GY,"G. Young"
.a HAW,Harald Westphal
.a HHB,Harlyn Baker
.a HLL,Harry Llull
.a HWC,Hon Wah Chin
.a IAN,Ian Earnest
.a JAM,Andy Moorer
.a JBR,Jeff Rubin
.a JMC,John McCarthy
.a JDM,Jock MacKinlay
.a JED,Jim Davidson
.a JEO,J.E. Orr
.a JEV,Jim Vastyan
.a JF,Joan Feigenbaum
.a JGL,John Laski
.a JIB,John Burge
.a JIM,Jim Celoni
.a JJ,Jeff Johnson
.a JJW, Joe Weening
.a JMM,Jitendra Malik
.a JP,Jorge Phillips
.a JPE,Joan Earnest
.a JQJ,J.Q. Johnson
.a JRG,John Gilbert
.a JS,Jay Schuster
.a JSB,Jim Bennett
.a JSL,J Lee
.a JV,John Veizades
.a JVC,Janet Coursey
.a KAP,K.A. Pier
.a KIP,Kip Sheeline
.a KJK,Kevin Karplus
.a KK,Karen Kolling
.a KNM,Kasee Menke
.a KRK,Karl Kortkamp
.a KS,Ken Shoemake
.a LC, Larry Campbell
.a LES,Les Earnest
.a LJP,Lynne Pollenz
.a LMT,Leon Traister
.a LUN,David Moon
.a MC,Meg Crockett
.a MAC,Mary Couse
.a MCT,Myra Thompson
.a ME,Martin Frost
.a MJ,Mark Jackson
.a MLB,Marc LeBrun
.a MLM,Mitch Model
.a MLW,Mike Wahrman
.a MO,Maurice Bizzarri
.a MOG,Jeff Mogul
.a MP,Mitch Pitt
.a MRC,Mark Crispin
.a MS,Marilyn Schneider
.a MZA,"Mary Artibee"
.a MUZ,Loren Rush
.a NCR,Neil Rowe
.a ND,Nachum Dershowitz
.a NF,Nancy Freige
.a PAM,Paul Martin
.a PAT,Patte Wood
.a PB,Peter Blicher
.a PJA,Paul Asente
.a PKR,Peter Rathmann
.a PMB,Per Bothner
.a PMU,Peter Ullman
.a PTZ,Polle Zellweger
.a RAK,Dick Karp
.a RCB,Richard Boly
.a RFN,Rosemary Napier
.a RHG,Rick Gumpertz
.a RK,"Richard Kovalcik, Jr."
.a RLW,Bob Weissman
.a RPG,Dick Gabriel
.a RSF,Ross Finlayson
.a RSP,Bob Pariseau
.a RWF,Bob Floyd
.a SAJ,Rick Sajbel
.a SEC,Susan Cole
.a SM,Scott McGregor
.a SMC,Stuart McClure
.a SJF,Shel Finkelstein
.a SW,Steve Weyer
.a TGD,Thomas Dietterich
.a TLR,Terry Roberts
.a TOB,Tom Binford
.a TRG,Thomas Gross
.a TSD,"T. Diebert"
.a TTP,Tom Pressburger
.a TVR,Tovar
.a TW,Terry Winograd
.a TWE,Tim Eldridge
.a TYP,Mike Sheridan
.a WDG,Bill Gropp
.a WDK,"D. Knutsen"
.a VSS,Victor Schwartz
.a WCT,Bill Thompson
.a WIT,Witkin
.a WLS,Bill Scherlis
.a WOL, Pierre Wolper
.END "PEOPLE"
.if showlist then begin "plist"
.  area text lines 4 to height chars 1 to 60;
.  portion plist;
.  every heading(,Number of Contributions);
.  place text
.  fill preface 0;
.  turn on "\"; tabs 6,30;
.  at "<" pn ">" full "="	⊂
.    if "pn"≠pnold then start ("\"&cnt); break; cnt←0; pnold←"pn";
pn\
.      end;;
.    if length("full") then "full" else cnt←cnt+1;
.    ⊃
.  pnold←cnt←"";
.  receive "<>";
.  ("\"&cnt);
.  end "plist";
.if xcribl then BEGIN "cont"
.  AREA TEXT LINES 3 TO (height-3) in 3 columns 3 apart;
.  PORTION CONTENTS
.  TURN ON "←→\∂{"
.  before page	⊂	begin "heading"
.    place heading;nofill; turn on "←→{"
.    if odd page then start
←%3TABLE OF CONTENTS →{page!}
.  end else start
%3{page!} ←TABLE OF CONTENTS
.  end
. end "heading" ⊃;
.
.place text
.FILL NOJUST CRBREAK
.PREFACE 0; indent 0,4;
.count page printing "i";
.next page;
.
.RECEIVE
.end "cont"